home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Game / U-Z / Vegas Poker 2.0.2.cpt / Vegas Poker Kit / Vegas Poker / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-03-15  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>7589</cardID>
  8.     <listID>5722</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackglobal handList,winMaster,winList,chartList,game,wild,tuneList,delay,bonusunlock screenset lockMessages to falsemorning 0hide menubarif the short name of this stack is "Home" thenset the icon of btn "Home" of cd 2 to "Mac"else set the icon of btn "Home" of cd 2 to "Elenay Home"repeat with i = 1 to 6wait 10morning iend repeattestCountset lockMessages to trueput "0,1,2,6,7,8,20,50,100,250,0,500,5000,0,0,1,2,2,3,4,10,15,25," & ¬¨"200,250,4000,1,2,3,4,6,9,25,50,0,0,0,250,4000,1,2,3,4,5,8,25,50," & ¬¨"0,0,0,250,4000,1,2,3,4,6,9,25,50,0,0,0,250,P,0,2,3,5,7,11,50,100," & ¬¨"0,0,0,500,5000" into winMasterput "JokersWildChart,DuecesWildChart,SixNineChart,FiveEightChart," & ¬¨"ProgressiveChart,AtlanticChart" into chartListput "a a aw,b c aw, cq ah cq ah bqw,cq cq cq c5 c4q c5w" into tuneListmorning 7lock screengo to card 2put fld "delay" into delaymorning 0put 7 into gamerepeat with i = 1 to 6if not visible of btn i thenput i into gamepicture (item i of chartList),resource,shadow,falseset rect of window (item i of chartList) to ¬¨("72,21,372," & 145-(12*(i div 6)))end ifend repeatif game = 7 thenhide btn 7hide btn "Bonus"else show btn "Bonus"put (icon of btn "Bonus" is not 0) into bonusput item 1+13*(game-1) to 13*game of winMaster into winListif game < 2 then put true into wildelse put false into wildunlock screen with visual shrink to tophello 0end openStackon morning patlock screenset hilite of bg btn 1 of cd 1 to (pat = 0)set name of bg btn 1 of cd 1 to "Morning" & patunlock screen with visual dissolve very fastend morningon helloglobal delayif the optionKey is down thenask "Please enter new delay count" with fld "delay" of card 2if it < 256 thenput it into fld "delay" of card 2put it into delayend ifend ifget the number of cd fld ("talk 0")hi it,delayend helloon doMenu whichif which is "About Vegas Poker..." thenshowDialog 1,3000,"",trueif the result is 6 thenhide btn "Home"hide btn "About"set scroll of cd fld "Vegas Poker Instructions" to 0show cd fld "Vegas Poker Instructions"if fld code of cd "Open Screen" ‚↠99 then show btn "Register!"show btn "Print"end ifelseif which is "Home" then QuitGamepass doMenuend ifend doMenuon verglobal tutorget win()put (line 1 of tutor) && (line 2 of tutor)end veron QuitGameglobal game,handList,calcList,winMaster,winList,chartListif game < 7 then close window (item game of chartList)get "game,handList,calcList,winList,chartList"repeat with i= 1 to the number of items in itput empty into item i of itend repeatend QuitGameon testCountglobal tutor,countput win(,10) into countput empty into fld code of cd "Open Screen"put count && return into fld code of cd "Open Screen"if count = 99 thenexit testCountend ifrepeat with i=1 to 4put numToChar(item i of tutor) after fld code of cd "Open Screen"end repeatcountNoteend testCounton countNoteglobal countrepeat until the result is not emptyif count>=0 and count<=19 then showDialog 1,3001,(count+1),trueelse if count=-1 then showDialog 1,3001,"no",trueelse exit countNoteif the result is 3 thenregisterif fld code of cd "Open Screen" = 99 thenexit countNoteend ifelse if the result is 4 thenlock screenopen report printing with template "Order Form"print card "Open Screen"close printingopen report printing with template "Envelope Template"print card "Open Screen"close printingunlock screenend ifend repeatend countNoteon registerglobal tutor,RandSeedshowDialog 2,3002,(line 2 of fld code of cd "Open Screen"),,,"Support ShareWare!"if the result is empty then exit re